home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / paths.el < prev    next >
Encoding:
Text File  |  1994-09-20  |  6.4 KB  |  169 lines
  1. ;;; paths.el --- define pathnames for use by various Emacs commands.
  2.  
  3. ;; Copyright (C) 1986, 1988, 1993, 1994 Free Software Foundation, Inc.
  4.  
  5. ;; Maintainer: FSF
  6. ;; Keywords: internal
  7.  
  8. ;; This file is part of GNU Emacs.
  9.  
  10. ;; GNU Emacs is free software; you can redistribute it and/or modify
  11. ;; it under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; GNU Emacs is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;; GNU General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  22. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. ;;; Commentary:
  25.  
  26. ;; These are default settings for names of certain files and directories
  27. ;; that Emacs needs to refer to from time to time.
  28.  
  29. ;; If these settings are not right, override them with `setq'
  30. ;; in site-init.el.  Do not change this file.
  31.  
  32. ;;; Code:
  33.  
  34. ;(defvar Info-default-directory-list
  35. ;  (let ((start (list "/usr/local/info/"
  36. ;             "/usr/local/lib/info/"))
  37. ;    (configdir (file-name-as-directory configure-info-directory)))
  38. ;    (or (member configdir start)
  39. ;    (setq start (nconc start (list configdir))))
  40. ;    (or (member (expand-file-name "../info/" data-directory) start)
  41. ;    (setq start
  42. ;          (nconc start
  43. ;             (list (expand-file-name "../info/" data-directory)))))
  44. ;    start)
  45. ;  "List of directories to search for Info documentation files.")
  46.  
  47. (defvar news-path "/usr/spool/news/"
  48.   "The root directory below which all news files are stored.")
  49.  
  50. (defvar news-inews-program
  51.   (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews")
  52.     ((file-exists-p "/usr/local/inews") "/usr/local/inews")
  53.     ((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews")
  54.     ((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews")
  55.     (t "inews"))
  56.   "Program to post news.")
  57.  
  58. ;(defvar gnus-default-nntp-server ""
  59. ;  ;; set this to your local server
  60. ;  "The name of the host running an NNTP server.
  61. ;If it is a string such as \":DIRECTORY\", then ~/DIRECTORY
  62. ;is used as a news spool.  `gnus-nntp-server' is initialised from NNTPSERVER
  63. ;environment variable or, if none, this value.")
  64.  
  65. ;(defvar gnus-nntp-service "nntp"
  66. ;  "NNTP service name, usually \"nntp\" or 119).
  67. ;Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
  68. ;should be set to `(system-name)'.")
  69.  
  70. (defvar gnus-local-domain nil
  71.   "*Your domain name without a host name: for example, \"ai.mit.edu\".
  72. The DOMAINNAME environment variable is used instead if defined.
  73. If the function `system-name' returns a fully qualified domain name,
  74. there is no need to set this variable.")
  75.  
  76. (defvar gnus-local-organization nil
  77.   "*The name of your organization, as a string.
  78. The `ORGANIZATION' environment variable is used instead if defined.")
  79.  
  80. (defvar mh-progs
  81.   (purecopy
  82.    (cond ((file-directory-p "/usr/bin/mh") "/usr/bin/mh/") ;Ultrix 4.2
  83.      ((file-directory-p "/usr/new/mh") "/usr/new/mh/") ;Ultrix <4.2
  84.      ((file-directory-p "/usr/local/bin/mh") "/usr/local/bin/mh/")
  85.      ((file-directory-p "/usr/local/mh") "/usr/local/mh/")
  86.      (t "/usr/local/bin/")))
  87.   "Directory containing MH commands.")
  88.  
  89. (defvar mh-lib
  90.   (purecopy
  91.    (cond ((file-directory-p "/usr/lib/mh") "/usr/lib/mh/") ;Ultrix 4.2
  92.      ((file-directory-p "/usr/new/lib/mh") "/usr/new/lib/mh/") ;Ultrix <4.2
  93.      ((file-directory-p "/usr/local/lib/mh") "/usr/local/lib/mh/")
  94.      (t "/usr/local/bin/mh/")))
  95.   "Directory of MH library.")
  96.  
  97. (defvar rmail-file-name (purecopy "~/RMAIL")
  98.   "Name of user's primary mail file.")
  99.  
  100. (defvar gnus-startup-file (purecopy "~/.newsrc")
  101.   "The file listing groups to which user is subscribed.
  102. Will use `gnus-startup-file'-SERVER instead if exists.")
  103.  
  104. (defconst rmail-spool-directory
  105.   (purecopy
  106.    (cond
  107.     ((memq system-type '(dgux-unix hpux usg-unix-v unisoft-unix rtu
  108.              irix silicon-graphics-unix))
  109.      "/usr/mail/")
  110.     ((memq system-type '(netbsd))
  111.      "/var/mail/")
  112.     (t
  113.      "/usr/spool/mail/")))
  114.   "Name of directory used by system mailer for delivering new mail.
  115. Its name should end with a slash.")
  116.  
  117. (defconst sendmail-program
  118.   (purecopy
  119.    (cond
  120.     ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
  121.     ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
  122.     ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
  123.     (t "fakemail")))        ;In ../etc, to interface to /bin/mail.
  124.   "Program used to send messages.")
  125.  
  126. (defconst term-file-prefix
  127.   (purecopy (if (eq system-type 'vax-vms) "[.term]" "term/"))
  128.   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
  129. You may set this variable to nil in your `.emacs' file if you do not wish
  130. the terminal-initialization file to be loaded.")
  131.  
  132. ;; Solaris 2 has both of these files; prefer /usr/ucb/man
  133. ;; because the other has nonstandard argument conventions.
  134. (defconst manual-program
  135.   (purecopy (if (file-exists-p "/usr/ucb/man")
  136.         "/usr/ucb/man" "/usr/bin/man"))
  137.   "Program to run to print man pages.")
  138.  
  139. (defconst abbrev-file-name 
  140.   (purecopy (if (eq system-type 'vax-vms)
  141.         "~/abbrev.def"
  142.           "~/.abbrev_defs"))
  143.   "*Default name of file to read abbrevs from.")
  144.  
  145. (defconst directory-abbrev-alist
  146.   (list
  147.    ;;
  148.    ;; This matches the default Sun automounter temporary mount points.  These
  149.    ;; temporary mount points may go away, so it's important that we only try
  150.    ;; to read files under the "advertised" mount point, rather than the
  151.    ;; temporary one, or it will look like files have been deleted on us.
  152.    ;; Whoever came up with this design is clearly a moron of the first order,
  153.    ;; but now we're stuck with it, no doubt until the end of time.
  154.    ;;
  155.    ;; For best results, automounter junk should go near the front of this
  156.    ;; list, and other user translations should come after it.
  157.    ;;
  158.    ;; You may need to change this if you're not running the Sun automounter,
  159.    ;; if you're not running in the default configuration.  Because the
  160.    ;; designers (and I use that term loosely) of the automounters failed to
  161.    ;; provide any uniform way of disambiguating a pathname, emacs needs to
  162.    ;; have knowledge about exactly how the automounter mangles pathnames
  163.    ;; (and this knowledge is basically impossible to derive at run-time.)
  164.    ;;
  165.    (cons (purecopy "\\`/tmp_mnt/") (purecopy "/"))
  166.    ))
  167.  
  168. ;;; paths.el ends here
  169.